!****************************
!Machine independent types
!****************************
MODULE mod_types

IMPLICIT NONE

INTEGER, PARAMETER:: sp = SELECTED_REAL_KIND(p=4, r=30)
INTEGER, PARAMETER:: dp = SELECTED_REAL_KIND(p=8, r=40)
!INTEGER, PARAMETER :: K4B = SELECTED_INT_KIND(9)


!INTEGER, PARAMETER:: sp = SELECTED_REAL_KIND(p=8,  r=30)
!INTEGER, PARAMETER:: dp = SELECTED_REAL_KIND(p=16, r=40)


END MODULE mod_types
